6 POKE56,56:CLR:POKE53281,0:POKE53280,0:PRINT"[155]"
8 POKE53371,0
10 DV=PEEK(186):IFDV<8THENDV=8
20 SYS57812"WND.INP.CM.IND",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
22 SYS57812"HYMN 2K FONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
24 SYS57812"HYMN 2K QSD",DV,0:POKE780,0:POKE781,0:POKE782,96:SYS65493
26 SYS57812"Q.BATTLE HYMN",DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
28 POKE53272,31
30 UP=49152 :REM SCROLL UP
32 QS=24576 :REM QUICKSMITH
34 V=53248  :REM VIC CHIP
46 IP=49920 :REM INPUT ANY
54 FORI=704TO727:POKEI,255:NEXT:FORI=728TO767:POKEI,0:NEXT
56 FORI=0TO5:POKE2040+I,11:POKEV+39+I,1:NEXT
58 POKEV+16,32:POKEV+29,255:POKEV+23,0:POKEV+28,0:POKEV+27,63
60 FORI=0TO4:POKEV+I*2,36+48*I:POKEV+1+2*I,170:NEXT
62 POKEV+10,20:POKEV+11,170
66 DIMW$(64)
68 HZ$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
70 SYSIP,"HYMN 2K WORDS",DV
72 NT=PEEK(252)*256+PEEK(251)
78 PRINT"[147][155]            [204]ARRY [211]CHAFER'S[129]
80 [153]" ^  OR ^   OR ORTAN^ORTAN^ ORTAN^ OR     /TANTAN^ ^ OREXP
82 PRINT" [171][192][192][179] [173][192][178][192][189] [221] [173][189] [221] [221] [221] [221]     [176][192][192][189] [171][192][179]
84 [153]" EXP  /   >   EXP    / EXP /TANEXP     /TANTAN^ EXP /^
90 PRINT"[158][176]"LEFT$(HZ$,37)"[174]"
92 FORI=0TO17:PRINT"[221]                                     [221]":NEXT
94 PRINT"[173]"LEFT$(HZ$,37)"[189][152]"
98 POKE214,4:PRINT
100 FORI=0TO16:PRINT""W$(I):NEXT
110 SYSQS+12:SYSQS+15
120 POKE198,0:T1=0:B1=0
122 SYSQS,64,1
124 IFPEEK(QS+45)<10THEN124
126 POKE214,23:PRINT:PRINT"         [209][154] - [209]UIT   [193][154] - [193]GAIN"
128 POKEV+21,63
130 MS=PEEK(QS+45)
132 IFMS=0THEN200
134 GETA$:IFA$="Q"ORA$="A"THEN200
136 IFPEEK(QS+45)=MSTHEN132
142 B1=B1+1:IFB1+10=>NTTHENB1=B1-1:GOTO130
144 SYSUP,1,12,37,10,0
146 POKE214,20:PRINT:PRINT"[152]"W$(B1+16)
148 GOTO130
200 POKEV+21,0:SYSQS+18
202 IFA$="A"THEN78
210 IFA$="Q"THENSYSQS+6:SYSQS+18:PRINT"[147]":GOTO40000
220 GETA$:IFA$=""THEN220
230 GOTO202
10000 D=PEEK(186):N$="0:B.HYMN 2K":OPEN15,D,15,"S"+N$:CLOSE15:SAVEN$,D:END
40000 FORI=8TO29:POKE820+I,I:NEXT:IFDV>8ANDDV<30THENPOKE828,DV:POKE820+DV,8
40010 A$="PRESENTER":GOSUB40030:A$="HELLO CONNECT":GOSUB40030
40020 PRINT"[147]":POKE53272,23:POKE186,8:POKE2048,0:POKE44,8:POKE43,1:END
40030 FORJ=8TO29:I=PEEK(820+J):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:RETURN
40070 A$="HELLO CONNECT":Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END